VisualBasic module:
<![CDATA[
Attribute VB_Name = "Simaika"
'/****************************************************/
'/* */
'/* typedef */
'/* */
'/****************************************************/
'typedef as boolean (CALLBACK *PROCENUMPROC)( dw&, WORD, LPSTR as string, LPARAM );
' Type definitions for pointers to call tool help functions.
'typedef as boolean (WINAPI *MODULEWALK)(HANDLE hSnapshot, LPMODULEENTRY32 lpme);
'typedef as boolean (WINAPI *THREADWALK)(HANDLE hSnapshot, LPTHREADENTRY32 lpte);
'typedef as boolean (WINAPI *PROCESSWALK)(HANDLE hSnapshot, LPPROCESSENTRY32 lppe);
'typedef HANDLE (WINAPI *CREATESNAPSHOT)(DWORD dwFlags, DWORD th32ProcessID);
'typedef as boolean (WINAPI *HEAPLISTWALK)(HANDLE hSnapshot, LPHEAPLIST32 lphl);
'typedef as boolean (WINAPI *HEAPFIRST)(LPHEAPENTRY32 lphe, DWORD th32ProcessID, DWORD th32HeapID);
'typedef as boolean (WINAPI *HEAPNEXT)(LPHEAPENTRY32 lphe);
'typedef bool(WINAPI * READPROCESSMEMORY)(DWORD th32ProcessID,LPCVOID lpBaseAddress, LPVOID lpBuffer,DWORD cbRead, LPDWORD lpNumberOfBytesRead);
'typedef as boolean (WINAPI *PROCESSOR) (DWORD ProcessorFeature );
'typedef as boolean (WINAPI *WNDSTYLEPROC)(Byval hDlg& Byval hDlg&, LPCSTR as string , LPARAM);
'typedef LRESULT (CALLBACK *QUERYPROC)(BYVAL hDlg&, byval LPCSTR as string , byval OPTIONAL int level=0,byval OPTIONAL DWORD type=0);
'typedef as boolean (CALLBACK *FILEPROC)(BYVAL hDlg&, byval LPCSTR as string );
'typedef LRESULT (CALLBACK *ADPPROC)(BYVAL hDlg&, byval byref LPCOMPONENT);
'typedef as boolean (CALLBACK *DIRPROC)(BYVAL hDlg&, byval LPCSTR as string ); '/* 5.8.2000 */
'/****************************************************/
'/* */
'/* defines */
'/* */
'/****************************************************/
Global Const FTMOD As Integer = 1
Global Const FTACC As Integer = 2
Global Const FTCRE As Integer = 3
Global Const ID_PRINT = 3333
Global Const WW_SEARCHCASE = 8
Global Const WW_SEARCHDN = 10
Global Const CSTR_EQUAL = 2
'Global Const szCompare(a, b) CompareString(LOCALE_SYSTEM_DEFAULT, 0, a, -1, b, -1)
'Global Const szCompareN(dw, a, b) CompareString(LOCALE_SYSTEM_DEFAULT, dw, a, -1, b, -1)
' Makes it easier to determine appropriate code paths:
Public Declare Function GetOSVersion Lib "Simaika" Alias "_GetOSVersion@0" () As Integer
'Global Const IsNT (GetOSVersion()==VER_PLATFORM_WIN32_NT)
Global Const LD_USEDESC = 1
Global Const LD_USEARGS = 2
Global Const LD_USEICON = 4
Global Const LD_USEWORKDIR = 8
Global Const LD_USEHOTKEY = &H10
Global Const LD_USESHOWCMD = &H20
Type LINKDATA
' Mandatory members
pszPathname As String ' Pathname of original object
fdwFlags As Long ' LD_* flags ORed together for optional members
' Optional members
pszDesc As String ' Description of link file (its filename)
pszArgs As String ' command-line arguments
pszIconPath As String ' Pathname of file containing the icon
nIconIndex As Integer ' Index of icon in pszIconPath
pszWorkingDir As String ' Working directory when process starts
nShowCmd As Integer ' How to show the initial window
wHotkey As Integer ' Hot key for the link
'LINKDATA, *PLINKDATA;
End Type
'/****************************************************/
'/* */
'/* globals */
'/* */
'/****************************************************/
Global Const BUFLEN = 1024
'/* global search string */
Dim lpszSearch As String * BUFLEN
Global hDlgSearch&
'static FINDREPLACE frSearch={0};
'static UINT uSearchMsg = RegisterWindowMessage ((s as string)FINDMSGSTRING);;
' File scope globals. These pointers are declared because of the need
' to dynamically link to the functions. They are exported only by
' the Windows 95 kernel. Explicitly linking to them will make this
' application unloadable in Microsoft(R) Windows NT(TM) and will
' produce an ugly system dialog box.
'Public Declare Function Lib "Simaika" PROCESSOR pIsProcessorFeaturePresent;
'Public Declare Function CREATESNAPSHOT pCreateToolhelp32Snapshot;
'Public Declare Function MODULEWALK pModule32First;
'Public Declare Function MODULEWALK pModule32Next;
'Public Declare Function PROCESSWALK pProcess32First ;
'Public Declare Function PROCESSWALK pProcess32Next ;
'Public Declare Function THREADWALK pThread32First ;
'Public Declare Function THREADWALK pThread32Next ;
'Public Declare Function HEAPFIRST pHeap32First ;
'Public Declare Function HEAPNEXT pHeap32Next ;
'Public Declare Function HEAPLISTWALK pHeap32ListFirst ;
'Public Declare Function HEAPLISTWALK pHeap32ListNext ;
'Public Declare Function READPROCESSMEMORY pToolhelp32ReadProcessMemory ;
' PSAPI Function Pointers.
'Public Declare Function as boolean (WINAPI *lpfEnumProcesses)( DWORD& *, DWORD cb, DWORD * ) ;
'Public Declare Function as boolean (WINAPI *lpfEnumProcessModules)( HANDLE, HMODULE *, DWORD, LPDWORD ) ;
'Public Declare Function DWORD (WINAPI *lpfGetModuleFileNameEx)( HANDLE, HMODULE, LPTSTR, DWORD ) ;
' VDMDBG Function Pointers.
'Public Declare Function INT (WINAPI *lpfVDMEnumTaskWOWEx)( DWORD, TASKENUMPROCEX fp, LPARAM ) ;
'dim HINSTANCE hPSAPI ;
'dim HINSTANCE hVDMDBG ;
Dim g_szAppName As String * 256
Dim dwPlatformId, dwMajor, dwMinor, dwOSMajor, dwOSMinor&
Dim bIsWindows98orLater As Boolean
Dim g_szHexFile As String * 256
Dim g_szPrintTitle As String * 256
'/****************************************************/
'/* */
'/* w32utils.h prototypes for w32utils.cpp */
'/* */
'/****************************************************/
Public Declare Function InitToolhelp32 Lib "Simaika" Alias "_InitToolhelp32@0" () As Boolean 'TESTED
Public Declare Function FindProcessInfoHwnd Lib "Simaika" Alias "_FindProcessInfoHwnd@8" (ByVal hDlg&, ByRef lpe As PROCESSENTRY32) As Boolean 'TESTED
Public Declare Function GetFileDescription Lib "Simaika" Alias "_GetFileDescription@8" (ByVal file As String, ByVal fdesc As String) As Boolean 'TESTED
Public Declare Function CenterWindow Lib "Simaika" Alias "_CenterWindow@8" (ByVal hWind&, Optional ByVal hwndParent&) As Boolean
Public Declare Sub DescribeWindow Lib "Simaika" Alias "_DescribeWindow@8" (ByVal hDlg&, ByVal lpDesc As String)
Public Declare Sub LogMessage Lib "Simaika" Alias "_LogMessage@8" (ByVal szLogFile As String, ByVal szErr As String)
Public Declare Function ShowError Lib "Simaika" Alias "_ShowError@20" (ByVal dw&, ByVal lpErr As String, ByVal lpFile As String, ByVal lpFunction As String, bNet As Boolean) As Long
Public Declare Function AddEventSource Lib "Simaika" Alias "_AddEventSource@8" (ByVal szApp As String, ByVal szDLL As String) As Boolean '1.11.2000
Public Declare Function IsFile Lib "Simaika" Alias "_IsFile@4" (ByVal file As String) As Boolean
Public Declare Function GetComCtlVersion Lib "Simaika" Alias "_GetComCtlVersion@8" (ByRef dwMajor&, ByRef dwMinor&) As Long 'HRESULT
Public Declare Function GetFileDateTime Lib "Simaika" Alias "_GetFileDateTime@20" (ByVal lpfn As String, ByVal LPSTR As String, ByVal ulDateType&, ByVal ulTimeType&, ByVal dtype%) As Boolean
Public Declare Function OnPrintLB Lib "Simaika" Alias "_OnPrintLB@12" (ByVal hLB&, ByVal lpDocName As String, ByVal bDefault As Boolean) As Boolean
Public Declare Function OnPrintLB2HTML Lib "Simaika" Alias "_OnPrintLB2HTML@8" (ByVal hLB&, ByVal lpDocName As String) As Boolean
Public Declare Function OnPrintListView Lib "Simaika" Alias "_OnPrintListView@12" (ByVal hLV&, ByVal lpDocName As String, ByVal bDefault As Boolean) As Boolean
Public Declare Function OnPrintListView2HTML Lib "Simaika" Alias "_OnPrintListView2HTML@8" (ByVal hDlg&, ByVal lpDocName As String) As Boolean '/* 26.2.2000 */
Public Declare Function ListView_SetOptimalColumnWidth Lib "Simaika" Alias "_ListView_SetOptimalColumnWidth@8" (ByVal hLV&, ByVal col%) As Integer
Public Declare Function ListView_RotateView Lib "Simaika" Alias "_ListView_RotateView@4" (ByVal hLV&) As Long '12.3.2000
'******************* UNTESTED ****************
Public Declare Function OpenFileName Lib "Simaika" Alias "_OpenFileName@16" (ByVal hDlg&, ByVal file As String, ByVal filter As String, ByVal bSave As Boolean) As Boolean
'Public Declare Function EnumProcs lib "Simaika" Alias "" (fp As PROCENUMPROC, lParam&) As Boolean
'Public Declare Function FindDialog lib "Simaika" Alias "" (ByVal hDlg&, ByRef lpf As FINDREPLACE, Byval file as string, dwFlags&) As hWnd
'Public Declare Function RecursiveFileSearch Lib "Simaika" Alias "_RecursiveFileSearch@20" (ByVal hDlg&, Byval file as string, Byval file as string, fpFileProc As FILEPROC, fpDirProc As DIRPROC) As Boolean
Public Declare Function Static_SetLong Lib "Simaika" Alias "_Static_SetLong@12" (ByVal hDlg&, l&, sign As Boolean) As Boolean
Public Declare Sub FilePopupMenu Lib "Simaika" Alias "_FilePopupMenu@4" (ByVal hDlg&)
Public Declare Sub WaitCursor Lib "Simaika" Alias "_WaitCursor@4" (ByVal bWait As Boolean)
Public Declare Function GetStringRes Lib "Simaika" Alias "_GetStringRes@4" (iRes%) As String
'Public Declare Function GetMsgProc Lib "Simaika" Alias "" (i&, WPARAM%, LPARAM&) As Long
'Public Declare Function lib "Simaika" Alias "" HWND DoCreateTooltip (HWND , HWND *, HHOOK *, HOOKPROC) ;
'Public Declare Function lib "Simaika" Alias "" as boolean CALLBACK EnumDlgWindowsProc(HWND , LPARAM );
'Public Declare Function lib "Simaika" Alias "" as boolean CALLBACK EnumCalendarInfoProc( LPTSTR );
Public Declare Function SetPrivileges Lib "Simaika" Alias "_SetPrivileges@0" () As Boolean
Public Declare Function GetError Lib "Simaika" Alias "_GetError@16" (ByVal lpErr As String, ByVal lpFile As String, ByVal lpFunction As String, bNet As Boolean) As Long
'Public Declare Function FindProcessInfo lib "Simaika" Alias "" (hDlg&, lpe As LPPROCESSENTRY32) As Boolean
'Public Declare Function FindModuleInfo lib "Simaika" Alias "" (l&, l&, lpe As LPMODULEENTRY32) As Boolean
Public Declare Function GetMaxLBWidthPels Lib "Simaika" Alias "_GetMaxLBWidthPels@4" (ByVal hDlg&) As Integer
Public Declare Function TreeView_AddString Lib "Simaika" Alias "_TreeView_AddString@24" (ByVal hDlg&, ByVal lpsz As String, hInsert&, hParent&, lParam&, iImage%) As Long 'HTREEITEM
Public Declare Function TreeView_Search Lib "Simaika" Alias "_TreeView_Search@16" (ByVal hDlg&, i%, ByVal LPSTR As String, hBranch&) As Long 'HTREEITEM
Public Declare Function GetFTDateTime Lib "Simaika" Alias "_GetFTDateTime@12" (ByRef ft As FILETIME, ByVal LPSTR As String, ulDateType&) As Boolean
'__declspec( dllimport ) int ComboBoxEx_AddString (HWND, LPCSTR,int iImage=0);
Public Declare Function ComboBoxEx_AddString Lib "Simaika" Alias "_ComboBoxEx_AddString@12" (ByVal hDlg&, ByVal LPCSTR As String, Optional ByVal iImage%) As Integer
'Public Declare Function ComboBoxEx_SetImageList lib "Simaika" Alias "" HIMAGELIST ComboBoxEx_SetImageList(HWND , HIMAGELIST );
Public Declare Function GetFileIcon Lib "Simaika" Alias "_GetFileIcon@8" (ByVal lpFile As String, ByVal hDlg&) As Long 'hIcon
Public Declare Function InitPSAPI Lib "Simaika" Alias "_InitPSAPI@0" () As Boolean
Public Declare Function StartProcess Lib "Simaika" Alias "_StartProcess@8" (ByVal lpFile As String, ByVal szCmdLine As String) As Long 'DWORD '26.8.99
Public Declare Function FindFile Lib "Simaika" Alias "_FindFile@4" (ByVal lpFile As String) As Boolean '27.8.99
Public Declare Function CopyTextToClipboard Lib "Simaika" Alias "_CopyTextToClipboard@8" (ByVal hDlg&, ByVal lpText As String) As Boolean '10.10.1999
Public Declare Function MessageBoxIcon Lib "Simaika" Alias "_MessageBoxIcon@20" (ByVal hDlg&, ByVal lpText As String, ByVal lpCaption As String, iMB%, iIcon%) As Integer '10.10.1999
'Public Declare Function "GetFileIconN" Lib "Simaika" alias "GetFileIconN" HICON GetFileIconN (byval LPCSTR as string , HWND& , int% )'hicon
Public Declare Function ListView_AddString Lib "Simaika" Alias "_ListView_AddString@28" (ByVal hLV&, ByVal szItem As String, ByVal lParam&, ByVal szSubItem1 As String, ByVal szSubItem2 As String, ByVal szSubItem3 As String, ByVal nImage%) As Integer
Public Declare Function GetDllVersion Lib "Simaika" Alias "_GetDllVersion@4" (ByVal lpDLL As String) As Long '14.1.2000
'Public Declare Function lib "Simaika" Alias "" as boolean InputBox (Byval hDlg& , byval lpText as string, byval lpPwd as string); '27.8.2000
Public Declare Function GetLogFileName Lib "Simaika" Alias "_GetLogFileName@4" (ByVal lpPath As String) As Boolean '12.11.2000
'/****************************************************/
'/* */
'/* WINDOW */
'/* */
'/****************************************************/
'Public Declare Function lib "Simaika" Alias "" EnumWindowStyles (HWND , WNDSTYLEPROC , LPARAM )as boolean
Public Declare Sub DescribeWindowEx Lib "Simaika" Alias "_DescribeWindowEx@8" (ByVal hDlg&, ByVal lpDesc As String)
'/****************************************************/
'/* */
'/* 31.10.1999 registry */
'/* */
'/****************************************************/
Public Declare Function RegWritePrivateProfileString Lib "Simaika" Alias "_RegWritePrivateProfileString@16" (ByVal lpSection As String, ByVal lpHeader As String, ByVal lpValue As String, bFailOnExists As Boolean) As Boolean '31.10.1999
Public Declare Function RegWriteProfileString Lib "Simaika" Alias "_RegWriteProfileString@16" (ByVal lpSection As String, ByVal lpHeader As String, ByVal lpValue As String, ByVal bFailOnExists As Boolean) As Boolean '31.10.1999
Public Declare Function RegWritePrivateProfileInt Lib "Simaika" Alias "_RegWritePrivateProfileInt@16" (ByVal lpSection As String, ByVal lpHeader As String, ByVal lpdw&, ByVal bFailOnExists As Boolean) As Boolean '31.10.1999
Public Declare Function RegWriteProfileInt Lib "Simaika" Alias "_RegWriteProfileInt@16" (ByVal lpSection As String, ByVal lpHeader As String, ByVal lpdw&, ByVal bFailOnExists As Boolean) As Boolean '31.10.1999
Public Declare Function RegGetPrivateProfileInt Lib "Simaika" Alias "_RegGetPrivateProfileInt@12" (ByVal lpSection As String, ByVal lpHeader As String, ByVal iDefault%) As Integer
Public Declare Function RegGetProfileInt Lib "Simaika" Alias "_RegGetProfileInt@12" (ByVal lpSection As String, ByVal lpHeader As String, ByVal iDefault%) As Integer
Public Declare Function RegGetPrivateProfileString Lib "Simaika" Alias "_RegGetPrivateProfileString@16" (ByVal lpSection As String, ByVal lpHeader As String, ByVal lpDefault As String, ByVal lpOut As String) As Boolean
Public Declare Function RegGetProfileString Lib "Simaika" Alias "_RegGetProfileString@16" (ByVal lpSection As String, ByVal lpHeader As String, ByVal lpDefault As String, ByVal lpOut As String) As Boolean
'Public Declare Sub RegQueryKeyValues lib "Simaika" Alias "" (ByVal hDlg&, hk As hKey, byval LPCSTR as string, qp As QUERYPROC, HTREEITEM&)
'Public Declare Sub RegQuerySubkeys lib "Simaika" Alias "" (ByVal hDlg&, hk As hKey, byval a as string, byval b as string, qp As QUERYPROC, HTREEITEM&, Level%, maxlevel%)
Public Declare Function RegConvertKeyDataToString Lib "Simaika" Alias "_RegConvertKeyDataToString@20" (ByVal LPBYTE As String, dw&, LPSTR As String, ByVal dw2&, ByVal dwStrSize&) As Boolean
Public Declare Function MergeINI Lib "Simaika" Alias "_MergeINI@4" (lpFile As String) As Boolean '/*5.1.2000*/
Public Declare Function UnMergeINI Lib "Simaika" Alias "_UnMergeINI@4" (lpFile As String) As Boolean '14.10.2000
Public Declare Function GetExtensionNameCLSID Lib "Simaika" Alias "_GetExtensionNameCLSID@16" (ByVal lpExt As String, lpName As String, ByVal lpCLSID As String, ByVal lpDesc As String) As Boolean '6.8.2000
Public Declare Function WriteToEventLog Lib "Simaika" Alias "_WriteToEventLog@12" (ByVal szApp As String, ByVal dwEventID&, ByVal wType%) As Boolean '1.11.2000
'/****************************************************/
'/* */
'/* SHELL32 */
'/* */
'/****************************************************/
'typedef struct {
' BOOL fShowAllObjects : 1;
' BOOL fShowExtensions : 1;
' BOOL fNoConfirmRecycle : 1;
' BOOL fShowSysFiles : 1;
' BOOL fShowCompColor : 1;
' BOOL fDoubleClickInWebView : 1;
' BOOL fDesktopHTML : 1;
' BOOL fWin95Classic : 1;
' BOOL fDontPrettyPath : 1;
' BOOL fShowAttribCol : 1;
' BOOL fMapNetDrvBtn : 1;
' BOOL fShowInfoTip : 1;
' BOOL fHideIcons : 1;
' UINT fRestFlags : 3;
'} SHELLFLAGSTATE, * LPSHELLFLAGSTATE;16-bit
Public Declare Sub ShellGetSettings Lib "Simaika" Alias "_ShellGetSettings@8" (ByRef SHELLFLAGSTATE As Integer, DWORD&)
Public Declare Function ShellInvokePrinterCommand Lib "Simaika" Alias "_ShellInvokePrinterCommand@20" (ByVal hDlg&, ByVal UINT%, ByVal LPCTSTR As String, ByVal LPCTSTR As String, ByVal b As Boolean) As Boolean
Global Const SHERB_NOCONFIRMATION As Long = &H1
Global Const SHERB_NOPROGRESSUI As Long = &H2
Global Const SHERB_NOSOUND As Long = &H4
Public Declare Function ShellQueryRecycleBin Lib "Simaika" Alias "_ShellQueryRecycleBin@8" (ByVal LPCTSTR As String, ByRef LPSHQUERYRBINFO) As Long 'HRESULT
Public Declare Function ShellEmptyRecycleBin Lib "Simaika" Alias "_ShellEmptyRecycleBin@12" (ByVal hDlg&, ByVal lpRootPath As String, ByVal Flags&) As Long 'HRESULT
Public Declare Function Shell_CreateLink Lib "Simaika" Alias "_Shell_CreateLink@8" (ByVal LPCTSTR As String, ByVal ld As LINKDATA) As Long '/*25.4.2000*/HRESULT WINAPI
Public Declare Function ShellCreateExt Lib "Simaika" Alias "_ShellCreateExt@20" (ByVal LPCSTR As String, ByVal LPCSTR As String, ByVal LPCSTR As String, ByVal LPCSTR As String, lpContent As String) As Boolean '/*25.4.2000*/
Public Declare Function ShellCreateAppIdOption Lib "Simaika" Alias "_ShellCreateAppIdOption@16" (ByVal LPCSTR As String, ByVal LPCSTR As String, ByVal LPCSTR As String, ByVal LPCSTR As String) As Boolean '/*25.4.2000*/
Public Declare Function ShellGetSpecialFolderPath Lib "Simaika" Alias "_ShellGetSpecialFolderPath@16" (ByVal hDlg&, ByVal LPTSTR As String, ByVal i%, ByVal fCreate As Boolean) As Long '10.7.2000 HRESULT WINAPI
'Public Declare Function ShellGetSpecialFolderLocation Lib "Simaika" Alias "_ShellGetSpecialFolderLocation@16" (ByVal hDlg&, ByVal LPTSTR As String, i%, ByRef idl As ITEMIDLIST) As Long '16.7.2000 HRESULT WINAPI
Public Declare Function ADSetDesktopWallpaper Lib "Simaika" Alias "_ADSetDesktopWallpaper@8" (ByVal lpszWallpaper As String, ByRef lpdwStyle&) '16.7.2000HRESULT WINAPI
Public Declare Function ADGetDesktopWallpaper Lib "Simaika" Alias "_ADGetDesktopWallpaper@8" (ByVal lpszWallpaper As String, ByRef lpdwStyle&) '16.7.2000HRESULT WINAPI
Public Declare Function ADEnumDeskItems Lib "Simaika" Alias "_ADEnumDeskItems@8" (ByVal hDlg&, ADPPROC As Any) As Long 'HRESULT
Public Declare Function ShellFileOperation Lib "Simaika" Alias "_ShellFileOperation@4" (sf As SHFILEOPSTRUCT) As Integer '17.7.2000
Public Declare Function Shell_ResolveLink Lib "Simaika" Alias "_Shell_ResolveLink@28" (ByVal hDlg&, ByVal LPCSTR As String, ByVal LPSTR As String, ByVal LPSTR As String, LPSTR As String, ByRef i%, LPSTR As String) As Long 'HRESULT
'/****************************************************/
'/* */
'/* NETAPI */
'/* */
'/****************************************************/
'Public Declare Function NetworkBufferFree lib "Simaika" Alias "_NetworkBufferFree@4" (lpVoid As Any) As NET_API_STATUS
'Public Declare Function NetworkQueryDisplayInformation lib "Simaika" Alias "_NetworkQueryDisplayInformation@28" (wServerName as string, Level&, Index&, EntriesRequested&, PreferredMaximumLength&, ByRef ReturnedEntryCount&, SortedBuffer As Any) As NET_API_STATUS
'Public Declare Function NetworkMessageNameEnum lib "Simaika" Alias "_NetworkMessageNameEnum@28" (wServerName as string, Level&, ByRef bufptr as string, PrefMaxLen&, ByRef entriesread&, ByRef totalentries&, ByRef resume_handle&) As NET_API_STATUS
'/****************************************************/
'/* */
'/* printing */
'/* */
'/****************************************************/
Public Declare Function GetPrinterDC Lib "Simaika" Alias "_GetPrinterDC@0" () As Long
Public Declare Function GetDefaultPrinterDC Lib "Simaika" Alias "_GetDefaultPrinterDC@0" () As Long '27.1.1999
Public Declare Function OnPrintListViewbyID Lib "Simaika" Alias "_OnPrintListViewbyID@16" (ByVal hDlg&, wID%, ByVal lpDocName As String, ByVal bDefault As Boolean) As Boolean
Public Declare Function PrintBuf Lib "Simaika" Alias "_PrintBuf@8" (hDC&, ByVal lpDocName As String) As Boolean
Public Declare Function OnPrintTreebyID Lib "Simaika" Alias "_OnPrintTreebyID@16" (ByVal hDlg&, wID%, ByVal lpDocName As String, ByVal bDefault As Boolean) As Boolean
Public Declare Function OnPrintTree Lib "Simaika" Alias "_OnPrintTree@12" (hTV&, ByVal lpDocName As String, ByVal bDefault As Boolean) As Boolean
Public Declare Function OnPrintLBbyID Lib "Simaika" Alias "_OnPrintLBbyID@16" (ByVal hDlg&, wID%, ByVal lpDocName As String, ByVal bDefault As Boolean) As Boolean
Public Declare Function OnPrintLBbyID2HTML Lib "Simaika" Alias "_OnPrintLBbyID2HTML@12" (ByVal hDlg&, wID%, ByVal lpDocName As String) As Boolean
Public Declare Function PrepareHTMLHeader Lib "Simaika" Alias "_PrepareHTMLHeader@32" (fh&, ByVal lpDocName As String, ByVal lpHeader As String, ByVal lpHeader2 As String, ByVal lpHeader3 As String, ByVal lpHeader4 As String, ByVal lpHeader5 As String, ByVal lpHeader6 As String) As Boolean '/* 26.2.2000 */
Public Declare Function OnPrintListViewbyID2HTML Lib "Simaika" Alias "_OnPrintListViewbyID2HTML@12" (ByVal hDlg&, wID%, ByVal lpDocName As String) As Boolean '/* 26.2.2000 */
Public Declare Function CloseHTML Lib "Simaika" Alias "_CloseHTML@8" (fh&, ByVal lpTitle As String) As Boolean '/* 4.3.2000 */
Public Declare Function OnPrintTreebyID2HTML Lib "Simaika" Alias "_OnPrintTreebyID2HTML@12" (ByVal hDlg&, wID%, ByVal lpDocName As String) As Boolean '11.11.2000
Public Declare Function OnPrintTree2HTML Lib "Simaika" Alias "_OnPrintTree2HTML@8" (ByVal hTree&, ByVal lpDocName As String) As Boolean '11.11.2000
'/****************************************************/
'/* */
'/* STRINGS */
'/* */
'/****************************************************/
Public Declare Function StringFromGuidA Lib "Simaika" Alias "_StringFromGuidA@8" (REFIID, LPSTR As String) As Integer
Public Declare Function StringReplace Lib "Simaika" Alias "" (s As String, s2 As String, s3 As String) As Boolean '/*21.1.2000*/
'Public Declare Function lib "Simaika" Alias "" LPSTR as string Left (byval LPCSTR as string , byval unsigned int , byref LPSTR as string );'7.8.2000
'Public Declare Function lib "Simaika" Alias "" LPSTR as string Right (byval LPCSTR as string , byval unsigned int , byref LPSTR as string );'7.8.2000
'Public Declare Function lib "Simaika" Alias "" LPSTR as string Mid (byval LPCSTR as string , byval unsigned int , byval unsigned int , byref LPSTR as string );'7.8.2000
'Public Declare Function lib "Simaika" Alias "" LPTSTR SafeStrcpy (LPTSTR lpszString1, LPTSTR lpszString2) ;
Public Declare Function ConvertString Lib "Simaika" Alias "_ConvertString@12" (lpszOut As String, pwszIn As String, dwSize&) As Boolean
'/****************************************************/
'/* */
'/* MAPI */
'/* 12.8.2000 */
'/****************************************************/
Public Declare Function MailLogon Lib "Simaika" Alias "_MailLogon@20" (ByVal hDlg&, lpUser As String, lpPwd As String, Flags&, ByRef lhSession&) As Long 'ULONG
Public Declare Function MailLogoff Lib "Simaika" Alias "_MailLogoff@12" (ByVal lhSession&, ByVal hDlg&, ByVal Flags&) As Long 'ULONG
Public Declare Function GetMailError Lib "Simaika" Alias "_GetMailError@4" (dwErr&) As Long 'ULONG
'Public Declare Function MailSendMail Lib "Simaika" Alias "_MailSendMail@84" (ByVal lhSession&, ByVal hDlg&, Msg As MAPIMessage, mrd As MapiRecp, Flags&) As Long 'ULONG
Public Declare Function MailFindNext Lib "Simaika" Alias "_MailFindNext@24" (ByVal lhSession&, ByVal hDlg&, ByVal LPTSTR As String, ByVal LPTSTR As String, Flags&, LPTSTR As String) As Long 'ULONG
Public Declare Function MailAddress Lib "Simaika" Alias "_MailAddress@40" (ByVal lhSession&, ByVal hDlg&, ByVal lpszCaption As String, ByVal nEditFields&, lpszLabels As String, ByVal nRecips As Long, ByRef lpRecips As MapiRecip, flFlags&, ByRef lpnNewRecips&, ByRef lppNewRecips As MapiRecip) As Long 'ULONG
Public Declare Function MailReadMail Lib "Simaika" Alias "_MailReadMail@20" (ByVal lhSession&, ByVal hDlg&, ByVal lpszMessageID As String, flMsgFlags&, ByRef lppMessage As MAPIMessage) As Long 'ULONG
Public Declare Function MailDetails Lib "Simaika" Alias "_MailDetails@16" (ByVal lhSession&, ByVal hDlg&, Recipient As MapiRecip, ByVal Flags&) As Long
Public Declare Function MailFreeBuffer Lib "Simaika" Alias "_MailFreeBuffer@4" (lpVoid As Any) As Long 'ULONG
'/****************************************************/
'/* */
'/* Windows Sockets */
'/* 15.10.2000 */
'/****************************************************/
Public Declare Function WinSockStartup Lib "Simaika" Alias "_WinSockStartup@8" (wVersionRequested%, ByRef lpWSAData As WSADATA) As Integer
Public Declare Function WinSockEnumProtocols Lib "Simaika" Alias "_WinSockEnumProtocols@12" (ByRef lpiProtocols%, ByRef lpProtocolBuffer As WSAPROTOCOL_INFO, ByRef lpdwBufferLength&) As Integer
Public Declare Function WinSockGetLastError Lib "Simaika" Alias "_WinSockGetLastError@0" () As Integer
Public Declare Function WinSockCleanup Lib "Simaika" Alias "_WinSockCleanup@0" () As Integer
]]>